home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 23.zip / BS1 part 23 / Hisoft Basic v1.03 disk 2.adf / Drawing Programs / simpledraw.bas < prev    next >
BASIC Source File  |  1988-12-02  |  124b  |  12 lines
  1. ON MOUSE GOSUB Draw
  2. MOUSE ON
  3. delay:
  4.   GOTO delay
  5.  
  6. Draw:
  7.   WHILE MOUSE(0)<>0
  8.     PSET (MOUSE(1),MOUSE(2))
  9.   WEND
  10.   RETURN
  11.   
  12.